hello there !!

rr 2+2

[1] 4

rr 4+5

[1] 9

copy r formula ctrl +shift + i

data("present")
View(present)

*Shortcuts**

piping operator: ctrl + shift + m

assign operator: alt + -

Assignment

library(dplyr)

Attaching package: ‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union
library(ggplot2)
library(statsr)
data(arbuthnot)
dim(arbuthnot)
[1] 82  3
names(arbuthnot)
[1] "year"  "boys"  "girls"
arbuthnot$boys
 [1] 5218 4858 4422 4994 5158 5035 5106 4917 4703 5359 5366 5518 5470 5460 4793 4107 4047 3768 3796 3363 3079
[22] 2890 3231 3220 3196 3441 3655 3668 3396 3157 3209 3724 4748 5216 5411 6041 5114 4678 5616 6073 6506 6278
[43] 6449 6443 6073 6113 6058 6552 6423 6568 6247 6548 6822 6909 7577 7575 7484 7575 7737 7487 7604 7909 7662
[64] 7602 7676 6985 7263 7632 8062 8426 7911 7578 8102 8031 7765 6113 8366 7952 8379 8239 7840 7640
ggplot(data = arbuthnot, aes(x = year, y = girls)) +
  geom_point()

arbuthnot <- arbuthnot %>%
  mutate(total = boys + girls)
ggplot(data = arbuthnot, aes(x = year, y = total)) +
  geom_line()

ggplot(data = arbuthnot, aes(x = year, y = total)) +
  geom_line() +
  geom_point()

arbuthnot <- arbuthnot %>%
  mutate(more_boys = boys > girls)
dim(present)
[1] 74  3

Calculate the total number of births for each year and store these values in a new variable called total in the present dataset. Then, calculate the proportion of boys born each year and store these values in a new variable called prop_boys in the same dataset. Plot these values over time and based on the plot determine if the following statement is true or false: The proportion of boys born in the US has decreased over time.

True

False

```

Create a new variable called more_boys which contains the value of either TRUE if that year had more boys than girls, or FALSE if that year did not. Based on this variable which of the following statements is true?

Every year there are more girls born than boys.

Every year there are more boys born than girls.

Half of the years there are more boys born, and the other half more girls born.

present <- present %>%
mutate(more_boys = boys > girls)

c

Calculate the boy-to-girl ratio each year, and store these values in a new variable called prop_boy_girl in the present dataset. Plot these values over time. Which of the following best describes the trend?

There appears to be no trend in the boy-to-girl ratio from 1940 to 2013.

There is initially an increase in boy-to-girl ratio, which peaks around 1960. After 1960 there is a decrease in the boy-to-girl ratio, but the number begins to increase in the mid 1970s.

There is initially a decrease in the boy-to-girl ratio, and then an increase between 1960 and 1970, followed by a decrease.

The boy-to-girl ratio has increased over time.

There is an initial decrease in the boy-to-girl ratio born but this number appears to level around 1960 and remain constant since then.

present <- present %>%
mutate(prop_boy_girl = boys/girls)

ggplot(data = present, aes(x = year, y = prop_boy_girl)) + geom_line()
ggplot(data = present, aes(x = year, y = total)) + geom_line() + geom_point()
LS0tCnRpdGxlOiAiSW50cm9kdWN0aW9uIHRvIHByb2JhYmlsaXR5IGFuZCBkYXRhIgphdXRob3I6ICJhYmhpbWFueXUgbmF0aCIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKKipoZWxsbyB0aGVyZSAhISoqCgoKYGBge3J9CjIrMiAKNCs1CmBgYApjb3B5IHIgZm9ybXVsYSBjdHJsICtzaGlmdCArIGkKYGBge3J9CgpgYGAKCiFbXShpbWFnZXMvMS5wbmcpCgohW10oaW1hZ2VzLzIucG5nKQohW10oaW1hZ2VzLzMucG5nKQohW10oaW1hZ2VzLzQucG5nKQohW10oaW1hZ2VzLzUucG5nKQohW10oaW1hZ2VzLzYucG5nKQohW10oaW1hZ2VzLzcucG5nKQohW10oaW1hZ2VzLzgucG5nKQohW10oaW1hZ2VzLzkucG5nKQohW10oaW1hZ2VzLzEwLnBuZykKIVtdKGltYWdlcy8xMS5wbmcpCgpgYGB7cn0KZGF0YSgicHJlc2VudCIpClZpZXcocHJlc2VudCkKYGBgCgoqU2hvcnRjdXRzKioKCnBpcGluZyBvcGVyYXRvcjogY3RybCArIHNoaWZ0ICsgbQoKYXNzaWduIG9wZXJhdG9yOiBhbHQgKyAtCgojIEFzc2lnbm1lbnQKCmBgYHtyfQpsaWJyYXJ5KGRwbHlyKQpsaWJyYXJ5KGdncGxvdDIpCmxpYnJhcnkoc3RhdHNyKQpgYGAKCgpgYGB7cn0KZGF0YShhcmJ1dGhub3QpCmRpbShhcmJ1dGhub3QpCm5hbWVzKGFyYnV0aG5vdCkKYXJidXRobm90JGJveXMKZ2dwbG90KGRhdGEgPSBhcmJ1dGhub3QsIGFlcyh4ID0geWVhciwgeSA9IGdpcmxzKSkgKwogIGdlb21fcG9pbnQoKQphcmJ1dGhub3QgPC0gYXJidXRobm90ICU+JQogIG11dGF0ZSh0b3RhbCA9IGJveXMgKyBnaXJscykKZ2dwbG90KGRhdGEgPSBhcmJ1dGhub3QsIGFlcyh4ID0geWVhciwgeSA9IHRvdGFsKSkgKwogIGdlb21fbGluZSgpCmdncGxvdChkYXRhID0gYXJidXRobm90LCBhZXMoeCA9IHllYXIsIHkgPSB0b3RhbCkpICsKICBnZW9tX2xpbmUoKSArCiAgZ2VvbV9wb2ludCgpCmFyYnV0aG5vdCA8LSBhcmJ1dGhub3QgJT4lCiAgbXV0YXRlKG1vcmVfYm95cyA9IGJveXMgPiBnaXJscykKYGBgCgpgYGB7cn0KZGF0YShwcmVzZW50KQpkaW0ocHJlc2VudCkKYGBgCkNhbGN1bGF0ZSB0aGUgdG90YWwgbnVtYmVyIG9mIGJpcnRocyBmb3IgZWFjaCB5ZWFyIGFuZCBzdG9yZSB0aGVzZSB2YWx1ZXMgaW4gYSBuZXcgdmFyaWFibGUgY2FsbGVkIHRvdGFsIGluIHRoZSAgcHJlc2VudCBkYXRhc2V0LiBUaGVuLCBjYWxjdWxhdGUgdGhlIHByb3BvcnRpb24gb2YgYm95cyBib3JuIGVhY2ggeWVhciBhbmQgc3RvcmUgdGhlc2UgdmFsdWVzIGluIGEgbmV3IHZhcmlhYmxlIGNhbGxlZCBwcm9wX2JveXMgaW4gdGhlIHNhbWUgZGF0YXNldC4gUGxvdCB0aGVzZSB2YWx1ZXMgb3ZlciB0aW1lIGFuZCBiYXNlZCBvbiB0aGUgcGxvdCBkZXRlcm1pbmUgaWYgdGhlIGZvbGxvd2luZyBzdGF0ZW1lbnQgaXMgdHJ1ZSBvciBmYWxzZTogVGhlIHByb3BvcnRpb24gb2YgYm95cyBib3JuIGluIHRoZSBVUyBoYXMgZGVjcmVhc2VkIG92ZXIgdGltZS4KClRydWUKCkZhbHNlCgoKCmBgYAoKCkNyZWF0ZSBhIG5ldyB2YXJpYWJsZSBjYWxsZWQgbW9yZV9ib3lzIHdoaWNoIGNvbnRhaW5zIHRoZSB2YWx1ZSBvZiBlaXRoZXIgVFJVRSBpZiB0aGF0IHllYXIgaGFkIG1vcmUgYm95cyB0aGFuIGdpcmxzLCBvciBGQUxTRSBpZiB0aGF0IHllYXIgZGlkIG5vdC4gQmFzZWQgb24gdGhpcyB2YXJpYWJsZSB3aGljaCBvZiB0aGUgZm9sbG93aW5nIHN0YXRlbWVudHMgaXMgdHJ1ZT8KCkV2ZXJ5IHllYXIgdGhlcmUgYXJlIG1vcmUgZ2lybHMgYm9ybiB0aGFuIGJveXMuCgpFdmVyeSB5ZWFyIHRoZXJlIGFyZSBtb3JlIGJveXMgYm9ybiB0aGFuIGdpcmxzLgoKSGFsZiBvZiB0aGUgeWVhcnMgdGhlcmUgYXJlIG1vcmUgYm95cyBib3JuLCBhbmQgdGhlIG90aGVyIGhhbGYgbW9yZSBnaXJscyBib3JuLgoKYGBge3J9CnByZXNlbnQgPC0gcHJlc2VudCAlPiUKbXV0YXRlKG1vcmVfYm95cyA9IGJveXMgPiBnaXJscykKCmMKYGBgCgpDYWxjdWxhdGUgdGhlIGJveS10by1naXJsIHJhdGlvIGVhY2ggeWVhciwgYW5kIHN0b3JlIHRoZXNlIHZhbHVlcyBpbiBhIG5ldyB2YXJpYWJsZSBjYWxsZWQgcHJvcF9ib3lfZ2lybCBpbiB0aGUgIHByZXNlbnQgZGF0YXNldC4gUGxvdCB0aGVzZSB2YWx1ZXMgb3ZlciB0aW1lLiBXaGljaCBvZiB0aGUgZm9sbG93aW5nIGJlc3QgZGVzY3JpYmVzIHRoZSB0cmVuZD8KClRoZXJlIGFwcGVhcnMgdG8gYmUgbm8gdHJlbmQgaW4gdGhlIGJveS10by1naXJsIHJhdGlvIGZyb20gMTk0MCB0byAyMDEzLgoKVGhlcmUgaXMgaW5pdGlhbGx5IGFuIGluY3JlYXNlIGluIGJveS10by1naXJsIHJhdGlvLCB3aGljaCBwZWFrcyBhcm91bmQgMTk2MC4gQWZ0ZXIgMTk2MCB0aGVyZSBpcyBhIGRlY3JlYXNlIGluIHRoZSBib3ktdG8tZ2lybCByYXRpbywgYnV0IHRoZSBudW1iZXIgYmVnaW5zIHRvIGluY3JlYXNlIGluIHRoZSBtaWQgMTk3MHMuCgpUaGVyZSBpcyBpbml0aWFsbHkgYSBkZWNyZWFzZSBpbiB0aGUgYm95LXRvLWdpcmwgcmF0aW8sIGFuZCB0aGVuIGFuIGluY3JlYXNlIGJldHdlZW4gMTk2MCBhbmQgMTk3MCwgZm9sbG93ZWQgYnkgYSBkZWNyZWFzZS4KClRoZSBib3ktdG8tZ2lybCByYXRpbyBoYXMgaW5jcmVhc2VkIG92ZXIgdGltZS4KClRoZXJlIGlzIGFuIGluaXRpYWwgZGVjcmVhc2UgaW4gdGhlIGJveS10by1naXJsIHJhdGlvIGJvcm4gYnV0IHRoaXMgbnVtYmVyIGFwcGVhcnMgdG8gbGV2ZWwgYXJvdW5kIDE5NjAgYW5kIHJlbWFpbiBjb25zdGFudCBzaW5jZSB0aGVuLgoKYGBge3J9CnByZXNlbnQgPC0gcHJlc2VudCAlPiUKbXV0YXRlKHByb3BfYm95X2dpcmwgPSBib3lzL2dpcmxzKQoKZ2dwbG90KGRhdGEgPSBwcmVzZW50LCBhZXMoeCA9IHllYXIsIHkgPSBwcm9wX2JveV9naXJsKSkgKyBnZW9tX2xpbmUoKQpgYGAKCmBgYHtyfQpnZ3Bsb3QoZGF0YSA9IHByZXNlbnQsIGFlcyh4ID0geWVhciwgeSA9IHRvdGFsKSkgKyBnZW9tX2xpbmUoKSArIGdlb21fcG9pbnQoKQoKYGBgCg==